perm filename SUICID.1[MAC,LSP] blob sn#619498 filedate 1981-10-17 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(setq si:sail-mail-service 'em:mail-interrupt-handler)
C00003 ENDMK
CāŠ—;
(setq si:sail-mail-service 'em:mail-interrupt-handler)
(lap suicide subr)
 (calli tt 24.)
 (movem tt addr)
 (movem tt (special si:ejobnum))
again
 (mail 2 addr2)
 (mail 0 addr)
 (jrst 0 again)
 (movei a 't)
 (popj p)
addr (block 32.)
addr2 (block 32.)
 ()